home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wonky Flux Batch 2019 02
/
Wonky_Flux_Batch_2019-02.zip
/
Wonky Flux Batch 2019-02
/
106 - Proboard KEY Floppy - Must be in Drive 1.dsk
/
TOP.LOADEES.MOD.txt
< prev
next >
Wrap
Text File
|
2019-02-17
|
5KB
|
176 lines
Derived from the Top.Uploaders Mod
by Andy Nicholas 1988-89
Adapted for Top.Downloaders Mod by jpe for ProBOARD; August 14th, 1989
The following code, placed after the label term1 in your main segment will
allow you to keep track of the top 10 downloaders for your supertac section:
;find..
Term1
on nocar clear
;insert the following code immediately following this label...
close:clear #8:f$="b8:top.downloaders"
a=0:open #1,f$
for x=1 to 10:input #1,i$,a1,a2
if (a3$=i$) and (d2=a2) x=10:next:goto norite
if (d1>a1) and not(a) print #8,a3$,d1,d2:a=1:goto top1d
if (d1=a1) and (d2>a2) and not(a) print #8,a3$,d1,d2:a=1
Top1d
if a3$=i$ next:goto top2d
print #8,i$,a1,a2:next
Top2d
close:if not(a) goto norite
kill f$:create f$
open #1,f$:copy #8,#1:close
a=x
Norite
close:clear #8:f$="b8:top.uploaders"
a=0:open #1,f$
for x=1 to 10:input #1,i$,a1,a2
if (a3$=i$) and (u2=a2) x=10:next:goto nowrite
if (u1>a1) and not(a) print#8,a3$,u1,u2:a=1:goto top1
if (u1=a1) and (u2>a2) and not(a) print#8,a3$,u1,u2:a=1
; Above is the Downloaders.Mod, Below is the Uploaders.Mod
Top1
if a3$=i$ next:goto top2
print#8,i$,a1,a2:next
Top2
close:if not(a) goto nowrite
kill f$:create f$
open #1,f$:copy #8,#1:close
a=x
print\":"chr$(61,77)":"
print": "chr$(15)" By the way... You are one of the Top 10 Uploaders! "chr$(14)" :"
print":"chr$(61,77)":"\
Nowrite
; the rest of the code continues here
.
.
.
-----------------------------------------------------------------------------
The following code will print out a list of the top 10 downloaders... place
this usually on entry to the ae section, something like:
if i$="A" pop:gosub topd:link "a:supertac"
; The actual code is as follows, placed in the main segment.
Topd
print \"Top 10 downloaders as of "date$\
open #1,"b8:top.downloaders"
for x=1 to 10:input #1,i$,a1,a2
a$=str$(a2):if a1 a$=str$(a1)+right$("000"+str$(a2),4)
print x". "left$(i$+"....................",20)" "a$" Blocks"
next:close:return
; The Above Shows The Top.Downloaders List Seperately
; The Below Shows The Two Lists Combined onto one 80 Col. Screen...by jpe
; Use Gosub top as before....
Top
close
print\"Top 10 Uploaders as of "date$;
print chr$(32,9)"Top 10 Downloaders as of "date$\
open #1,"b8:top.uploaders":open #2,"b8:top.downloaders"
for x=1 to 10:input #1,i$,a1,a2:input #2,ii$,x1,x2
x$=str$(x2):if x1 x$=str$(x1)+right$("000"+str$(x2),4)
a$=str$(a2):if a1 a$=str$(a1)+right$("000"+str$(a2),4)
f$=str$(x)+". "+left$(i$+"....................",20)+" "+a$+" Blocks"
print left$(f$+" ",40);
f$=str$(x)+". "+left$(ii$+"....................",20)+" "+x$+" Blocks"
print f$:next:close:x$="WhackaKey To Continue... "
print \\chr$(32,(20-len(x$)/2))x$;:geti$
return
-----------------------------------------------------------------------------
The following code will enter the user's uploaded blocks and downloaded
blocks when placed in your logon segment after the label:
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
If you already have this in for the Top.Uploaders Mod then your set!
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
; *** Main Logon Routine ***
login
;after the following code under this label, place the next code segment
a1$=d1$:a2$=d2$:a3$=d3$:a4$=d4$:a5$=d5$
tc=byte(1)+nibble(1)*256:bp=byte(2)+nibble(2)*256
dl=byte(3)+nibble(3)*256:ul=byte(4)+nibble(4)*256
;this is the code that needs to be entered in the logon segment to record
and retrieve the block counts correctly.
u1=byte(10)+byte(11)*256:u2=byte(12)+byte(13)*256
d1=byte(14)+byte(15)*256:d2=byte(16)+byte(17)*256
ul$=str$(u2):if u1 ul$=str$(u1)+right$("000"+str$(u2),4)
dl$=str$(d2):if d1 dl$=str$(d1)+right$("000"+str$(d2),4)
.
.
.
-----------------------------------------------------------------------------
The following code will save the user's blocks uploaded and blocks downloaded
when they log off... look in your main segment under the label:
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
If you already have this in for the Top.Uploaders Mod then your set!
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
term2
;the following code will occur, then insert the code after it:
open #1,"b:users":nibble(6)=nibble(6)+1
byte(0)=info(3)
byte(1)=tc mod 256:nibble(1)=tc/256
byte(2)=bp mod 256:nibble(2)=bp/256
byte(3)=dl mod 256:nibble(3)=dl/256
byte(4)=ul mod 256:nibble(4)=ul/256
byte(5)=lr mod 256:byte(6)=lr/256
;add this code following the previous code which should have already been
there:
byte(10)=u1 mod 256:byte(11)=u1/256
byte(12)=u2 mod 256:byte(13)=u2/256
byte(14)=d1 mod 256:byte(15)=d1/256
byte(16)=d2 mod 256:byte(17)=d2/256
;after that code, the following code should be immediately after the previous
stuff, and you need to add one more line, which kills the batch file
after the user logs off the system:
;special note: if drive H: is a ram drive, the time to batch a file into the
list is reduced enormously.
when$="x":position #1,128,un
print #1,a1$,a2$\a3$\a4$,a5$:position #1,128,un,70
write #1,ram,58:close
;add this:
kill "h:batch"
.
.
(code continues)
.
Adapted to Top.Downloaders by jpe for ProBOARD @ 805-239-4292 08/14/89 @ 15:20
; EOF